home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / kuang / kuangeleven28.lha / Rexx / CTCP / Where.amirx < prev   
Text File  |  1997-02-25  |  1KB  |  36 lines
  1. /* $VER: Where.AMIRX 1.0 (2.18.97) K¹¹ Plugin 2.5: Where are u from !!
  2.    Comments: bosman@erols.com     IRC: Bossman^                           
  3.  
  4.  Put this in Amirc/rexx/Ctcp edit K11 pluggins Add Where and Where.amirx
  5.  and that's it...
  6.  
  7.  Type  /ctcp {nick} Where in Amirc 
  8.  
  9.  Edit the below line to make it sound right for u it already includes 
  10.  your Nick's  so you just need to finish the sentences of where you from.  
  11.  Try to include a major city so people can get a ideal of where You're
  12.  from . Example  Bossman's about 30 miles south of Washington DC, USA 
  13.  only change inside of the ' ' */
  14.  
  15. wfrom = 'about 30 miles south of Washington DC, USA'
  16.  
  17. /* edit the above line and nothing below*/
  18.  
  19. squote=d2c('39')
  20. options results
  21. parse arg ':'prefix' 'type' 'channel' :'text
  22. parse var prefix nick'!'useraddr
  23. div='01'x
  24. parse upper var text (div) pref (div)
  25. if pref~='WHERE' then exit
  26. "GETMYNICK"
  27. mynick=result  
  28.  
  29. Notice(nick, mynick squote's' wfrom)
  30. end
  31. exit
  32.  
  33. notice:
  34.   if arg(1)~=''&arg(2)~='' then 'RAW NOTICE 'arg(1)' :'arg(2)
  35. return(0)
  36.